(Fset_buffer_multibyte): If the current buffer has a

process, update coding systems for the process.

diff --git a/src/buffer.c b/src/buffer.c
index 06663c9abd70a66f2d1f13f8011a65b9ee979851..77aa61d45ba76ee11fe49753aa778c2f4cb08a1c 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -2288,6 +2288,15 @@ but the contents viewed as characters do change.  */)
   if (!modified_p && !NILP (Fbuffer_modified_p (Qnil)))
     Fset_buffer_modified_p (Qnil);
 
+  /* Update coding systems of this buffer's process (if any).  */
+  {
+    Lisp_Object process;
+
+    process = Fget_buffer_process (Fcurrent_buffer ());
+    if (PROCESSP (process))
+      setup_process_coding_systems (process);
+  }
+
   return flag;
 }
 \f